home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / asbubble / asbubble.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-05  |  7.9 KB  |  218 lines
  1. VERSION 5.00
  2. Object = "{4034C11D-8602-11D1-9840-002078110E7D}#1.0#0"; "asAssistantPopup.ocx"
  3. Object = "{D19CC187-8393-11D1-983F-002078110E7D}#2.0#0"; "asBubbleForm.ocx"
  4. Begin VB.Form asBubbleSample 
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Display a bubble window"
  7.    ClientHeight    =   2925
  8.    ClientLeft      =   6660
  9.    ClientTop       =   2340
  10.    ClientWidth     =   4020
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2925
  15.    ScaleWidth      =   4020
  16.    ShowInTaskbar   =   0   'False
  17.    Begin asBubbleWindow.asBubbleForm asBubbleForm1 
  18.       Height          =   2775
  19.       Left            =   60
  20.       TabIndex        =   5
  21.       TabStop         =   0   'False
  22.       Top             =   60
  23.       Width           =   3855
  24.       _ExtentX        =   6800
  25.       _ExtentY        =   4895
  26.       BackColor       =   8454143
  27.       Style           =   1
  28.       ArrowOffSet     =   60
  29.       Begin VB.TextBox txtSearch 
  30.          Appearance      =   0  'Flat
  31.          BeginProperty Font 
  32.             Name            =   "Tahoma"
  33.             Size            =   9.75
  34.             Charset         =   0
  35.             Weight          =   400
  36.             Underline       =   0   'False
  37.             Italic          =   0   'False
  38.             Strikethrough   =   0   'False
  39.          EndProperty
  40.          Height          =   675
  41.          Left            =   120
  42.          MultiLine       =   -1  'True
  43.          TabIndex        =   0
  44.          Top             =   600
  45.          Width           =   3615
  46.       End
  47.       Begin asAssistantPopup.asAssisPopup cmdSearch 
  48.          Height          =   375
  49.          Left            =   1080
  50.          TabIndex        =   1
  51.          Top             =   1380
  52.          Width           =   1695
  53.          _ExtentX        =   2990
  54.          _ExtentY        =   661
  55.          BackColor       =   8454143
  56.          Caption         =   "&Search"
  57.          Picture         =   "asBubbleSample.frx":0000
  58.          MouseOverPicture=   "asBubbleSample.frx":015A
  59.          MouseDownPicture=   "asBubbleSample.frx":02B4
  60.          DisabledPicture =   "asBubbleSample.frx":040E
  61.          AutoSize        =   0   'False
  62.          PictureHeight   =   16
  63.          PictureWidth    =   16
  64.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.             Name            =   "Tahoma"
  66.             Size            =   9.75
  67.             Charset         =   0
  68.             Weight          =   700
  69.             Underline       =   0   'False
  70.             Italic          =   0   'False
  71.             Strikethrough   =   0   'False
  72.          EndProperty
  73.       End
  74.       Begin asAssistantPopup.asAssisPopup cmdClose 
  75.          Height          =   375
  76.          Left            =   2640
  77.          TabIndex        =   3
  78.          Top             =   1980
  79.          Width           =   1095
  80.          _ExtentX        =   1931
  81.          _ExtentY        =   661
  82.          BackColor       =   8454143
  83.          Caption         =   "&Close"
  84.          Picture         =   "asBubbleSample.frx":0568
  85.          MouseOverPicture=   "asBubbleSample.frx":06C2
  86.          MouseDownPicture=   "asBubbleSample.frx":081C
  87.          DisabledPicture =   "asBubbleSample.frx":0976
  88.          AutoSize        =   0   'False
  89.          PictureHeight   =   16
  90.          PictureWidth    =   16
  91.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  92.             Name            =   "Tahoma"
  93.             Size            =   9.75
  94.             Charset         =   0
  95.             Weight          =   400
  96.             Underline       =   0   'False
  97.             Italic          =   0   'False
  98.             Strikethrough   =   0   'False
  99.          EndProperty
  100.       End
  101.       Begin asAssistantPopup.asAssisPopup cmdOptions 
  102.          Height          =   375
  103.          Left            =   1380
  104.          TabIndex        =   2
  105.          Top             =   1980
  106.          Width           =   1095
  107.          _ExtentX        =   1931
  108.          _ExtentY        =   661
  109.          BackColor       =   8454143
  110.          Caption         =   "&Options"
  111.          Picture         =   "asBubbleSample.frx":0AD0
  112.          MouseOverPicture=   "asBubbleSample.frx":0C2A
  113.          MouseDownPicture=   "asBubbleSample.frx":0D84
  114.          DisabledPicture =   "asBubbleSample.frx":0EDE
  115.          AutoSize        =   0   'False
  116.          PictureHeight   =   16
  117.          PictureWidth    =   16
  118.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  119.             Name            =   "Tahoma"
  120.             Size            =   9.75
  121.             Charset         =   0
  122.             Weight          =   400
  123.             Underline       =   0   'False
  124.             Italic          =   0   'False
  125.             Strikethrough   =   0   'False
  126.          EndProperty
  127.       End
  128.       Begin asAssistantPopup.asAssisPopup cmdTips 
  129.          Height          =   375
  130.          Left            =   120
  131.          TabIndex        =   4
  132.          Top             =   1980
  133.          Width           =   1095
  134.          _ExtentX        =   1931
  135.          _ExtentY        =   661
  136.          BackColor       =   8454143
  137.          Caption         =   "&Tips"
  138.          Picture         =   "asBubbleSample.frx":1038
  139.          MouseOverPicture=   "asBubbleSample.frx":1192
  140.          MouseDownPicture=   "asBubbleSample.frx":12EC
  141.          DisabledPicture =   "asBubbleSample.frx":1446
  142.          Enabled         =   0   'False
  143.          AutoSize        =   0   'False
  144.          PictureHeight   =   16
  145.          PictureWidth    =   16
  146.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  147.             Name            =   "Tahoma"
  148.             Size            =   9.75
  149.             Charset         =   0
  150.             Weight          =   400
  151.             Underline       =   0   'False
  152.             Italic          =   0   'False
  153.             Strikethrough   =   0   'False
  154.          EndProperty
  155.       End
  156.       Begin VB.Label Label1 
  157.          BackStyle       =   0  'Transparent
  158.          Caption         =   "What would you like to do?"
  159.          BeginProperty Font 
  160.             Name            =   "Tahoma"
  161.             Size            =   9.75
  162.             Charset         =   0
  163.             Weight          =   700
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   315
  169.          Left            =   120
  170.          TabIndex        =   6
  171.          Top             =   120
  172.          Width           =   3615
  173.       End
  174.       Begin VB.Line Line2 
  175.          BorderColor     =   &H8000000F&
  176.          X1              =   120
  177.          X2              =   3720
  178.          Y1              =   480
  179.          Y2              =   480
  180.       End
  181.       Begin VB.Line Line1 
  182.          BorderColor     =   &H8000000F&
  183.          X1              =   120
  184.          X2              =   3720
  185.          Y1              =   1860
  186.          Y2              =   1860
  187.       End
  188.    End
  189. Attribute VB_Name = "asBubbleSample"
  190. Attribute VB_GlobalNameSpace = False
  191. Attribute VB_Creatable = False
  192. Attribute VB_PredeclaredId = True
  193. Attribute VB_Exposed = False
  194. Option Explicit
  195. Private Sub cmdClose_Click()
  196.     'goodbye
  197.     Unload Me
  198. End Sub
  199. Private Sub cmdOptions_Click()
  200.     MsgBox "Options would go here..."
  201.     Unload Me
  202. End Sub
  203. Private Sub cmdSearch_Click()
  204.     MsgBox "You have typed:" & Chr(13) & txtSearch.Text
  205.     Unload Me
  206. End Sub
  207. Private Sub Form_Load()
  208.     'set the back colors to the Help Assistant
  209.     'bubble window back color
  210.     asBubbleForm1.BackColor = RGB(255, 255, 209)
  211.     cmdTips.BackColor = asBubbleForm1.BackColor
  212.     cmdClose.BackColor = asBubbleForm1.BackColor
  213.     cmdOptions.BackColor = asBubbleForm1.BackColor
  214.     cmdSearch.BackColor = asBubbleForm1.BackColor
  215.     'clip out the bubble region of the form
  216.     asBubbleForm1.CreateRegion
  217. End Sub
  218.